home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_18_1987_Transactor_Publishing.d64 / fast sqr.ldr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  27 lines
  1. 100 rem   a=64.1:sys49152:print a
  2. 110 rem   where a is the first variable
  3. 120 rem   result of sqr will be in a
  4. 130 ad=49152:ch=0
  5. 140 for i=0 to 122:read x
  6. 150 poke ad+i,x:ch=ch+x:next
  7. 160 if ch<>13691 then print"error in data statements":end
  8. 170 hi=int((ad+107)/256)
  9. 180 poke ad+59,hi:poke ad+58,ad+107-hi*256
  10. 190 rem new table address for relocated p
  11. 200 data 160,   3, 177,  45,  48,  98, 136, 177
  12. 210 data  45, 240,  92, 165,  45,  24, 105,   2
  13. 220 data 133, 170, 165,  46, 105,   0, 133, 171
  14. 230 data 160,   0, 132,  93, 132,  94, 132,  95
  15. 240 data 132,  96, 177, 170, 106, 176,   4, 162
  16. 250 data 128, 134,  93, 105,  64, 133,  92, 200
  17. 260 data 177, 170,   5,  93,  74,  74,  74,  74
  18. 270 data 170, 189, 107,  32, 133,  93, 169,   4
  19. 280 data 133, 172, 169,  92, 160,   0,  32, 162
  20. 290 data 187, 165, 170, 164, 171,  32,  15, 187
  21. 300 data 169,  92, 160,   0,  32, 103, 184, 198
  22. 310 data  97,  32, 199, 187, 198, 172, 208, 233
  23. 320 data 166, 170, 164, 171,  32, 212, 187,  96
  24. 330 data  76,  72, 178,   3,  11,  18,  25,  32
  25. 340 data  38,  44,  50,  58,  69,  79,  89,  98
  26. 350 data 107, 115, 123
  27.